home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtil-PCSide.lha / ATUtilities-PCSide / basic / demo.bas < prev    next >
Encoding:
BASIC Source File  |  2000-10-07  |  138 b   |  12 lines
  1. screen 12
  2.  
  3. while inkey$=""
  4.  x1=rnd*640
  5.  y1=rnd*480
  6.  x2=rnd*640
  7.  y2=rnd*480
  8.  farbe=rnd*15
  9.  line (x1,y1)-(x2,y2),farbe
  10. wend
  11. end
  12.